inherited fmAddEditSkladTovar: TfmAddEditSkladTovar
  Left = 1035
  Top = 241
  Width = 339
  Height = 427
  Caption = #1050#1072#1088#1090#1086#1095#1082#1072' '#1090#1086#1074#1072#1088#1072
  Constraints.MinHeight = 427
  Constraints.MinWidth = 339
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 366
    Width = 331
  end
  inherited Panel1: TPanel
    Width = 331
    inherited BitBtn1: TBitBtn
      Left = 161
    end
    inherited BitBtn2: TBitBtn
      Left = 249
    end
  end
  object cxDBVerticalGrid1: TcxDBVerticalGrid [2]
    Left = 0
    Top = 97
    Width = 331
    Height = 269
    Align = alClient
    LookAndFeel.SkinName = 'Office2007Silver'
    OptionsView.RowHeaderWidth = 172
    Styles.Content = DMInv.cxData
    TabOrder = 2
    DataController.DataSource = dlgDS
    DataController.GridMode = True
    object cxDBVerticalGrid1CategoryRow1: TcxCategoryRow
    end
    object cxDBVerticalGrid1DBEditorRow1: TcxDBEditorRow
      Properties.Caption = #1058#1086#1074#1072#1088
      Properties.EditPropertiesClassName = 'TcxButtonEditProperties'
      Properties.EditProperties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.EditProperties.OnButtonClick = cxDBVerticalGrid1DBEditorRow1EditPropertiesButtonClick
      Properties.DataBinding.FieldName = 'TOVAR'
    end
    object cxDBVerticalGrid1DBEditorRow2: TcxDBEditorRow
      Properties.Caption = #1045#1076'. '#1080#1079#1084'.'
      Properties.EditPropertiesClassName = 'TcxLookupComboBoxProperties'
      Properties.EditProperties.KeyFieldNames = 'SDID'
      Properties.EditProperties.ListColumns = <
        item
          FieldName = 'SDNAME'
        end>
      Properties.EditProperties.ListOptions.ShowHeader = False
      Properties.EditProperties.ListSource = dsSDEd_izmer
      Properties.DataBinding.FieldName = 'ED_IZM'
    end
    object cxDBVerticalGrid1DBEditorRow5: TcxDBEditorRow
      Properties.Caption = #1042#1077#1089'/V '#1091#1087#1072#1082#1086#1074#1082#1080
      Properties.DataBinding.FieldName = 'VESORV'
    end
    object cxDBVerticalGrid1DBEditorRow8: TcxDBEditorRow
      Properties.Caption = #1044#1072#1090#1072' '#1087#1088#1086#1080#1079#1074'.'
      Properties.DataBinding.FieldName = 'SDATEPROIZV'
    end
    object cxDBVerticalGrid1DBEditorRow9: TcxDBEditorRow
      Properties.Caption = #1043#1086#1076#1077#1085' '#1076#1086
      Properties.DataBinding.FieldName = 'SDATEGODEN'
    end
    object cxDBVerticalGrid1DBEditorRow4: TcxDBEditorRow
      Properties.Caption = #1050#1086#1083#1080#1095'.'
      Properties.EditPropertiesClassName = 'TcxCalcEditProperties'
      Properties.DataBinding.FieldName = 'STKOL'
    end
    object cxDBVerticalGrid1CategoryRow2: TcxCategoryRow
    end
    object cxDBVerticalGrid1DBEditorRow13: TcxDBEditorRow
      Height = 100
      Properties.Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
      Properties.DataBinding.FieldName = 'STNOTE'
    end
  end
  object Panel2: TPanel [3]
    Left = 0
    Top = 45
    Width = 331
    Height = 52
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 3
    object cxLabel1: TcxLabel
      Left = 8
      Top = 0
      Caption = #1058#1080#1087' '#1090#1086#1074#1072#1088#1072
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clGray
      Style.Font.Height = -11
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
    end
    object lcbtype: TcxDBLookupComboBox
      Left = 8
      Top = 20
      DataBinding.DataField = 'STSDID_TYPE'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.KeyFieldNames = 'SDID'
      Properties.ListColumns = <
        item
          FieldName = 'SDNAME'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = dsRPSType
      Properties.OnCloseUp = lcbRPStypePropertiesCloseUp
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.LookAndFeel.Kind = lfFlat
      Style.LookAndFeel.SkinName = 'Office2007Silver'
      Style.Shadow = True
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.Kind = lfFlat
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Silver'
      StyleFocused.LookAndFeel.Kind = lfFlat
      StyleFocused.LookAndFeel.SkinName = 'Office2007Silver'
      StyleHot.LookAndFeel.Kind = lfFlat
      StyleHot.LookAndFeel.SkinName = 'Office2007Silver'
      TabOrder = 1
      Width = 225
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qSklad_tovar
    Left = 88
    Top = 8
  end
  object qSDEd_izmer: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.*'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID)'
      '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID FROM SYS_DIC SD'
      '      WHERE sd.SDPARID = 9'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'order by 1')
    GeneratorField.Field = 'SDID'
    Left = 160
    Top = 8
    object qSDEd_izmerSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 255
    end
    object qSDEd_izmerSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qSDEd_izmerSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
  end
  object dsSDEd_izmer: TDataSource
    DataSet = qSDEd_izmer
    Left = 128
    Top = 8
  end
  object dsRPSType: TDataSource
    DataSet = qRPSType
    Left = 240
    Top = 64
  end
  object qRPSType: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.*'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID)'
      '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID FROM SYS_DIC SD'
      '      WHERE sd.SDPARID = 37'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'order by 1')
    GeneratorField.Field = 'SDID'
    Left = 280
    Top = 64
    object qRPSTypeSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 255
    end
    object qRPSTypeSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qRPSTypeSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
  end
  object qSklad_tovar: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT st.*, SD.SDNAME AS tovar, SD1.SDNAME AS ed_izm'
      'FROM SKLAD_TOVAR st'
      'INNER JOIN SYS_DIC SD ON SD.SDID = st.STSDIDTOVAR'
      'INNER JOIN SYS_DIC SD1 ON SD1.SDID = st.SDID_ED_IZM'
      'WHERE st.StISDELETE IS NULL AND st.SKLADID = :SKLADID'
      ''
      '')
    GeneratorField.Field = 'STID'
    GeneratorField.Generator = 'GEN_SKLAD_TOVAR_ID'
    Left = 144
    Top = 72
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SKLADID'
        ParamType = ptUnknown
      end>
    object qSklad_tovarSTID: TIntegerField
      FieldName = 'STID'
      Origin = '"SKLAD_TOVAR"."STID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qSklad_tovarSKLADID: TIntegerField
      FieldName = 'SKLADID'
      Origin = '"SKLAD_TOVAR"."SKLADID"'
    end
    object qSklad_tovarSDID_ED_IZM: TIntegerField
      FieldName = 'SDID_ED_IZM'
      Origin = '"SKLAD_TOVAR"."SDID_ED_IZM"'
    end
    object qSklad_tovarSTSDID_TYPE: TIntegerField
      FieldName = 'STSDID_TYPE'
      Origin = '"SKLAD_TOVAR"."STSDID_TYPE"'
    end
    object qSklad_tovarVESORV: TIBBCDField
      FieldName = 'VESORV'
      Origin = '"SKLAD_TOVAR"."VESORV"'
      Precision = 18
      Size = 2
    end
    object qSklad_tovarSTKOL: TIntegerField
      FieldName = 'STKOL'
      Origin = '"SKLAD_TOVAR"."STKOL"'
    end
    object qSklad_tovarSTNOTE: TIBStringField
      FieldName = 'STNOTE'
      Origin = '"SKLAD_TOVAR"."STNOTE"'
      Size = 255
    end
    object qSklad_tovarSTUSERENTER: TIBStringField
      FieldName = 'STUSERENTER'
      Origin = '"SKLAD_TOVAR"."STUSERENTER"'
      Size = 40
    end
    object qSklad_tovarSTTIMEENTER: TDateTimeField
      FieldName = 'STTIMEENTER'
      Origin = '"SKLAD_TOVAR"."STTIMEENTER"'
    end
    object qSklad_tovarSTUSEREDIT: TIBStringField
      FieldName = 'STUSEREDIT'
      Origin = '"SKLAD_TOVAR"."STUSEREDIT"'
      Size = 40
    end
    object qSklad_tovarSTTIMEEDIT: TDateTimeField
      FieldName = 'STTIMEEDIT'
      Origin = '"SKLAD_TOVAR"."STTIMEEDIT"'
    end
    object qSklad_tovarSTISDELETE: TIntegerField
      FieldName = 'STISDELETE'
      Origin = '"SKLAD_TOVAR"."STISDELETE"'
    end
    object qSklad_tovarED_IZM: TIBStringField
      FieldName = 'ED_IZM'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qSklad_tovarSTSDIDTOVAR: TIntegerField
      FieldName = 'STSDIDTOVAR'
      Origin = '"SKLAD_TOVAR"."STSDIDTOVAR"'
    end
    object qSklad_tovarTOVAR: TIBStringField
      FieldName = 'TOVAR'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qSklad_tovarSDATEPROIZV: TDateField
      FieldName = 'SDATEPROIZV'
      Origin = '"SKLAD_TOVAR"."SDATEPROIZV"'
    end
    object qSklad_tovarSDATEGODEN: TDateField
      FieldName = 'SDATEGODEN'
      Origin = '"SKLAD_TOVAR"."SDATEGODEN"'
    end
  end
end
